home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 25 / Cream of the Crop 25.iso / bbs / tmg107.zip / MAGIC.ZIP / ITEMS / 1.SCR next >
Text File  |  1997-02-10  |  1KB  |  46 lines
  1. @#WEAR
  2.   Writeln "`3  As you equip the Bow of the Dead, you can feel the power of thousands"
  3.   Writeln "  of tortured souls coursing through your body."
  4.   Add ^CS23 3
  5.   Add ^CS24 3
  6.   Add ^CS08 -6
  7.   Add ^CS07 1
  8.   Add ^CS08 -1
  9.   AddFlag BOTD_HP_WHEN_WORN ^CS10 2 C
  10.   Set ^CS10 ^CS11
  11.   Return
  12. @#REMOVE
  13.   Writeln "`3  As you remove the Bow of the Dead, you can hear the screams of"
  14.   Writeln "  thousands of tortured souls echo through your mind."
  15.   Add ^CS23 -3
  16.   Add ^CS24 -3
  17.   Add ^CS08 6
  18.   FlagValue ^VR19 BOTD_HP_WHEN_WORN C
  19.   Writeln "  `%Your Hit Points were ^VR19 when you equipped the bow"
  20.   RemoveFlag BOTD_HP_WHEN_WORN C
  21.   If ^VR19 == -1
  22.     Set ^CS10 1
  23.     Return
  24.   EndIf
  25.   If ^VR19 < ^CS10
  26.     Set ^CS10 ^VR19
  27.     Return
  28.   EndIf
  29.   If ^VR19 > ^CS10
  30.     Set ^CS10 1
  31.   EndIf
  32.   Return
  33. @#IDENTIFY
  34.   Writeln "`3  The Bow of the Damned is an unholy artifact that harnesses the power"
  35.   Writeln "  and skill of tortured and abused souls to add to your own power."
  36.   Writeln "  Continued use of this item is ill-advised."
  37.   Writeln "`9  (`%+3 Skill Use points`9)"
  38.   Writeln "`9  (`%-6 Luck`9)"
  39.   Writeln "`9  (`%+1 Shame, -1 Luck every time it is equipped`9)"
  40.   Writeln "`9  (`%Heals all wounds temporarily`9)"
  41.   Return
  42. @#MAIN
  43.   Gosub ^VR01
  44.   Halt
  45. @#
  46.